perm filename E.DIF[E,ALS]9 blob
sn#207181 filedate 1976-03-22 generic text, type T, neo UTF8
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 1,1
******** E.76[CSP,SYS] **** PAGE 1 LINE 20
1) C00086 00018 EXTEND EXTEN1 EXTL0 EXTL EXTL1 EXTL2 EXTL3
1) C00088 00019 EXTLK0 EXTLK EXTAMX EXTAMB EXTNUL EXTNF EXTNF2 EXTAM2 EXTBUF EXTBFE MACABT
1) C00091 00020 READON ROSET READWR NORDWR CANCEL SNKOFF SNKON DPYALW DPYSKI NORDOW
1) C00093 00021 DDTGO R DRAW DRAWX LINCNT DDTRET
1) C00096 00022 GETOUT GETOU1 FINISH FINI1 FINI2 GORPG QUIT CLOSIT GODRD REOPEN CHKDEL
1) C00100 00023 NEWPAG NEWPG NEWPG0 NEWPG1 REREAD PGINIT PGERR
1) C00104 00024 UNWIND WIND WIND1 LT GT LTE GTE TOP BOT JMP JMPJMP UPARR DWNARR SEMICO COLON CHKMOV CHKMV2 MIDDLE FORMF VERTAB
1) C00113 00025 MARKS XMARK XMPAGE XXADD XXSUB XPADD XPSUB XLALL XXARRL XXPAGE XXLINE
1) C00125 00026 DELLIN, DELPOS
1) C00127 00027 DELLP DELL2 DELDSP DELPR DELPR1 DELPR2
1) C00133 00028 DELPM, DELPM1, DELPM2, DELPM3
1) C00135 00029 DELPAG, DELPG1, ADJPG, ADJPGL
1) C00137 00030 RCOMP, RCOMP1, RCOMP2, RCOMPX
1) C00138 00031 DELETE, DELET1, ADDPAG
1) C00141 00032 APPEND, APPLUZ
1) C00143 00033 APPEN2, PMTXT, PMPAG
1) C00145 00034 INSERT INSER0
1) C00147 00035 INSER1, INSER2, INSER3, INSER4, INSER5
1) C00149 00036 INSER8, DIRADD
1) C00151 00037 INSER6 INSER7 MARK NDIRCK
1) C00153 00038 CONTQ
1) C00155 00039 ATTACH, ATTCH1, ARGCHK, ARGCHN
1) C00157 00040 ATTDO, ATTDO0, ATTDO2, ATTDO1
1) C00159 00041 ATTREP, ATTEX
1) C00161 00042 ATTKIL, ATTKL, ATTSRC, GPAGL, GPAGL0, GPAGL1, GPAGL2, GPAGL3, ATTWRT
1) C00163 00043 ATTCOP, ATTCP1, ATTCP
1) C00164 00044 ATTCP0, ATTCPL, ATCMOR, ATTCP2, ATTCP3, GPAGL
1) C00166 00045 EDIT EDIT1 LINED LINL1 EDDSP EDARG EDARGX ZLINE
1) C00169 00046 EDFULL, EDTAB, EDNUL, EDCR, AGAIN, EDRP1, EDRPT
1) C00171 00047 EDGL EDGL1 EDGL2 EDGL2A EDGL2B EDGBSL IMLPTL
1) C00174 00048 EDGL3 EDGL4 REEDIT REEDT2 EDTMOR EDGDSP EDTAB2 PTOUT PTPNT EDLF
1) C00179 00049 EDCR2, EDACT, EDACT2, EDITIT, REPLIN, PUTBAK, UNINS, FNEDIT, EDLF2
1) C00185 00050 EDPUT, EDPLR
1) C00187 00051 EDPS, EDPL, EDPLUZ
1) C00189 00052 EDSNK
1) C00190 00053 CRDSP, REGCR, REGCR1, REGCR2
1) C00192 00054 CONTCR, CNTCR2, METACR, REPRST, REPRS2, METAC2
1) C00195 00055 LECR, DUBLCR, DUBCR2
1) C00197 00056 INSONA, INSONE, INSNUL, INSNLP
1) C00199 00057 LININS, LININ, LININ0, LININ1
1) C00201 00058 PPSET,ABCRLF,ABCRL0,ABCRL2,DPMAXL,LETAB,TTYTAB,DPHPOS,CMDCRL,PPRJMP,PPNO,DPHPOS,PPCALL,HPOSAD
1) C00206 00059 OCT3ST NUMSTD NUMSTR OCTSTR OCTASC NUMSIX
1) C00208 00060 SETWRT SETWR2 SETWRX BTAB SETWR3 SETWR4
1) C00211 00061 FRD FRD0 FRD1 NOEXT NOPRG NOPPN NOSWIT SWITL FRDMSG FLHACK
1) C00220 00062 SETDEV, GETNAM, GETNML, GETP, GETPL, DTYI1, DTYI, DTYI2
1) C00223 00063 DOSWIT, NTYI, NTYIL, NTYIM, EDFIL, EDFIL2, SRCFIL, DSTFIL
1) C00226 00064 RSCAN, RSCAN0, RSCAN1, RSCAN2, RSCAN3, RSCAN4, RSCN4B, RSCN4C, RSCN4A, RSCN0A
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 1,1
1) C00231 00065 RSCAN5, RSCAN6, RSCAN7, RSCAN8, SYSCCK, CRECHK
1) C00233 00066 RSTYI RSTYI0 RSTYI1 UCASE TYI1 TYI2 TYI3 TYI4 TYI5 TYI6 TYICHK CTYI1 CTYI2 POPUP POPCJ CSTYI1
1) C00237 00067 TYI, TYIT, TYIU
1) C00238 00068 TMPRED, TMPRD1, TMPRD2, TMPRDX, RPGRD1, BKPRED
1) C00244 00069 TMPWRT, BKPWRT, TMPCOR
1) C00248 00070 FILERR, FILTYP, FILSTR, PPNTYP, FILETB
1) C00250 00071 SIXTYO, SIXTYL, SIXTY2, SIXTYN, SIXTNL, SIXTNN, PNTYO, PNTYOL
1) C00251 00072 UUOH, UUODSP, UFCE, UTYPCH, UTYPC2, UTYPDE, UTYPOC
1) C00252 00073 UTYPR, UTYPR1, USORRY, UFATAL,FATFIX,TELLX,TELLZ
1) C00256 00074 OPENI, OPNOI, IOPEN, SETI, SETRLD, OPNDEV, RELDEV, OPNLUZ
1) C00260 00075 RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2,RLDCHK
1) C00264 00076 EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
1) C00266 00077 OPENW, OPENO, SETO, FPAUSE, PAUSE, PAUS2, BYE
1) C00268 00078 CLOSO CLOSO2 WRBUF WRBF1 WRBF2 WRBF3 WRBF4 ENTR OBUF IBUF IBFE
1) C00270 00079 INTLUZ, INTDSP, PDLOV, PDLOV1, PDLOV2, PDLOV3, ISAV, TSINT, TSNINT
1) C00274 00080 FSINI, FSINI1, MORCOR
1) C00277 00081 FSGET, FSLUP0, FSLUP, FSGRAB, FSXIT
1) C00278 00082 FSNEWT, FSNEWP, FSNEW
1) C00279 00083 FSUSED, FSTSML, FSNEXT, FSHRET, FSLLUZ
1) C00281 00084 FSLSCN, FSLSCL, FSLFR, FSLSHF, FSLSLP, FSLMOV, FSLDON
1) C00283 00085 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
1) C00285 00086 FSBLT, POPTJ, FSBLT1
1) C00286 00087 FSBLT2, FSBLT3, FSHBLT, FSHBL2
1) C00287 00088 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
1) C00289 00089 FSGIVE, FSGIV1, FSGIV2
1) C00290 00090 CORCHK, CRUNCH, CMPACT
1) C00292 00091 ENDSET, ENDFIX
1) C00293 00092 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
1) C00295 00093 FUCHK, MOVIT, MOVTX
1) C00297 00094 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
1) C00299 00095 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
1) C00302 00096 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
1) C00304 00097 SAVIT
1) C00305 00098 CHECK, CHECK1, CHECK2
1) C00306 00099 CHKDIR, CHKDPL
1) C00308 00100
1) C00310 00101 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
1) C00311 00102 CHKPAG, CHKPGP
1) C00312 00103 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
1) C00314 00104 CHKPG3, CHKPG4, CHKPG5, CHKPG6
1) C00315 00105 CHKATT, CHKNAT
1) C00316 00106 CTAB 0-37
1) C00320 00107 CTAB 40-77
1) C00322 00108 CTAB 100-137
1) C00324 00109 CTAB 140-177
1) C00326 00110 GETDIR
1) C00328 00111 DIRCL2, DIRCL, DIRCL1, GETDR1
1) C00331 00112 DIRLIN DIRLUP DIRDON GDIRX DIRLF DIRLF1 DIRLF2 FINDIR XDRDSP XDIRLN XDIRIL XDCRLF XDIRFF DIRLN2
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 1,1
1) C00343 00113 LOSDIR BADDIR NODIR DIRNUM GDDSP LSKP1 DIRSHF DIREND UGHDIR
1) C00347 00114 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
1) C00349 00115 COPCOR, COPCHK, YESCHK, COPCMD
1) C00351 00116 FORMAT, FMTOK, FMTDSP
1) C00354 00117 NEWDIR, NEWDLP, SKPDSP, NEWDFF, OPUT, OSET, TMPDIR
1) C00355 00118 MAKDIR, MAKDR0, MAKDR1, MAKDOL, MDOL1
1) C00357 00119 MDIL1, MDIL1A, MDIL2, MDIL2A, MDCSRC, MDCSR1, MD1DSP
1) C00359 00120 MDIL1B, MAKDLF, MAKDFF, MDFF2, MDFF3, MDCEOL, MD2DSP
1) C00363 00121 MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX, MDLFCK
1) C00366 00122 CREATE, CREAT2, CTEXT
1) C00368 00123 RDSPA1,RDPAGE, RDPGOK, RDSPAG, RDPAG0
1) C00371 00124 RDPAG2 RDPAG1 RDLINE RDLLP RDLTAB TELLD1 TELLDZ PSEUDO
1) C00374 00125 RDLCR RDLLF
1) C00376 00126 RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
1) C00378 00127 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
1) C00380 00128 DIRCHK, DIRNEW, DIRNW2, DIRNW1, TXTSHF
1) C00382 00129 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
1) C00384 00130 REMPTR FIXPTR FNDPT1 FNDPT2 LPTRTB DPTRTB ARRL TOPWIN LINES FIRPAG CURPAG PAGES
1) C00387 00131 DIRGET, DIRGL, DGEND, DRGSET
1) C00389 00132 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
1) C00391 00133 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
1) C00393 00134 INSDIR, DCLP1, DCLP2, DCNG, INSDL
1) C00396 00135 IDDSP0, IDDSP, IDTAB, INSD3, INSD4, SCOMS, SCOMS2
1) C00398 00136 IDNUL, IDDON, IDDONS
1) C00400 00137 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
1) C00401 00138 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
1) C00403 00139 DISPLAY DATA STORAGE
1) C00405 00140 MORE DISPLAY STORAGE
1) C00406 00141 HEADERS & TRAILERS -- TOPSTR HEDPAG HEDNAM ROFLG WFLAG TOPDSH HEDLIN BOTSTR DOTS
1) C00409 00142 DPYINI DPYCHK TTYTST MTLINE LOADMT
1) C00414 00143 DPYI2, NODPY, WIPE, IWIPE
1) C00417 00144 SETSCR NMVAR1 NMVARR MOVARR SETARR DSTRL TRLARR GOLINE
1) C00420 00145 SETWIN WINCHK WINCH2 GLDOWN GLUP POPWIN DWNWIN REWIN CENWIN
1) C00424 00146 DISP DISP0 DISP1 DISP2
1) C00427 00147 DISP3, DISP4, DISP5, DUMMY, EXCLR, EXSET,EXTST
1) C00429 00148 DISPAT, DISPAX
1) C00430 00149 DDISPX DDSPX2 DDDONE WIPIT WIPL WIPL2
1) C00432 00150 DDCOP, DDLUZ, LINREL, LINRLL, IDISP, IDISP2
1) C00433 00151 IIIARR, IIIAR2, IIIAR3
1) C00435 00152 LESET, LEADJ, LECLR
1) C00436 00153 DBLT, DBLT1, DBLT2, DBLT3, IDISPX, DISPX, PPBAJ1, POPBAJ, POPAJ
1) C00438 00154 PCOMPD, PCOMPI, PCOMPS, P2CMPD, P2CMPI
1) C00439 00155 DDISP, DDISP2
1) C00440 00156 DOARR, DOAR2, OFFARR, ONARR
1) C00441 00157 DDISPS, DDSPS2, DDSPS3, DDSPSX, DDSPS4
1) C00443 00158 DSPSAT, DSPSAX
1) C00444 00159 DBLTS, DBLTS2, DBLTSN, DBLTS3, DBLTS1, DBLTSA, DBLTA, DBLTA2
1) C00446 00160 TDISP TDISP0 TDISP1 TDISP2 TDISP3 TDISPE
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 1,1
1) C00448 00161 TDISP4 TDISP5 TYPE TYPEL TDISPM
1) C00449 00162 WRPAGE, WRPAG1, WRPAG2, WRBOOK
1) C00453 00163 WRPX0, WRPX, WRPX1, WRPX1A, WRPX1B, WRPX2
1) C00455 00164 WRPX3, WRPX4
1) C00458 00165 WRPOK, WRTIT, WRT0
1) C00460 00166 WRP1, WRLINE, WRLUP, WRLP2, WRRDO, WRRDO2, WRRDO3
1) C00462 00167 WRDSP, WRTAB, WRCHK, WRDONE, WRDON2
1) C00464 00168 WRPM, BTAB2
1) C00466 00169 FLSPAG, FLSPGL, FLSPG2, CLRWRT, CLRWR2, DSHED
1) C00467 00170 TV, RSYS, RUN, RUN1
1) C00470 00171 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
1) C00471 00172 SEARCH ROUTINES
1) C00473 00173 SREAD SREAD0 SREAD1 SREAD2 SREAD3 SREAD4 SRSTOR SRSTR2 QREAD QREADX QREADY QRACT QRACT2 QABORT
1) C00487 00174 SRACT SREAD5 SRALT SRALT2 SRALUZ SREDT ASTER BSLAS BSLXCT BSLXC2
1) C00497 00175 FINDIT FOUND FNDMOV FNDERR SUBSTP SUBERR FND2 FND2A SETJMP
1) C00502 00176 FIND
1) C00505 00177 DIRSRC, DFERR, SRCDF, SDFCR
1) C00507 00178 SSET, SSET2
1) C00508 00179 SCOMP SFLUSH NOSRCH SFLSH1 SFLSL
1) C00510 00180 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
1) C00512 00181 SPARSE
1) C00513 00182 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
1) C00515 00183 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
1) C00517 00184 SSCLP, SSCDSP
1) C00518 00185 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
1) C00520 00186 SGNOT
1) C00521 00187 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
1) C00523 00188 SBBRCH, SBBR2
1) C00524 00189 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
1) C00525 00190 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
1) C00527 00191 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
1) C00529 00192 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
1) C00531 00193 SBCCB6, SBCCB7, BITCNT, BITCN1
1) C00532 00194 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
1) C00534 00195 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
1) C00536 00196 SCCOM, SCCNOT
1) C00537 00197 SCCBIT
1) C00538 00198 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
1) C00540 00199 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
1) C00542 00200 SCGEN
1) C00543 00201 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
1) C00545 00202 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
1) C00547 00203 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
1) C00549 00204 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
1) C00551 00205 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
1) C00553 00206 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
1) C00555 00207 SRCPAG, SRCPG1
1) C00557 00208 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 1,1
1) C00558 00209 SRCPGF, SPFTAB, SPFCR, SPFLUZ
1) C00559 00210 SRCPGB, SPFTAB, SBKNL, SBKNUL
1) C00561 00211 SRCSET, SRCST1, SRCSTL, SRCST2
1) C00562 00212 SCALL, SRCHX, SRCHLX
1) C00564 00213 SCNBAK, SCNBKL
1) C00566 00214 SCONTF SRCFNP SRCFNB SFNB2 SFRETR SRCDPY SRCDP2 SRCFPP SRCDP3 NOSRCP SRCHED, SRCDD
1) C00571 00215 SRCFF, SFFNUL, SGTACS, SRTACS
1) C00572 00216 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
1) C00573 00217 JFILL, JUST, JUSTL1, JUSTL2, JDISP
1) C00583 00218 JUSTTB, JUSTSP, JUSTS2, JUSTSL, JUSTS3, JUSTSO, JSTSO2, JULMAR
1) C00586 00219 JUSMAR
1) C00591 00220 JUSTCR, JCRTB, JCR2, JFIX, JPTAB, JATAB
1) C00594 00221 NXTLIN, NXTLN2, JTAB, NXTBL
1) C00601 00222 JDUMP, JDMP2, JDLT, JDL1, JDISP2
1) C00605 00223 JDSP1, JDSP2, JDSP3, JDTAB, JFLUSH
1) C00607 00224 JDFIN
1) C00611 00225 JDFIN2, JSET, JSET2
1) C00613 00226 INDENT,ALINE,CENTER,JLEFT,JOIN
1) C00616 00227 LEFMAR,SHIFTY
1) C00620 00228 MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
1) C00622 00229 MACTYI
1) C00624 00230 ZDATA,ZSIX,ZBLT,ZEDFIL,ZLIST,EXIST,ZSAVE
1) C00638 00231 LAMBDA EPSIL NWFILE HOME QUERY HOMEG LAMBDG EPSIL5 LAMEPS
1) C00650 00232 ********* BEG OF ESSAY DEFS *********
1) C00669 00233 SUBSTR
1) C00681 00234 SPOOLC XSPOOL MAIOUT
1) C00687 00235 BEGIN SPSUB
1) C00694 00236 TELBUF,CHKUP,CHECKU,CHTEXT,ASCASC,CHOUT3,CHOUT6
1) C00701 00237 FILEID,TELLME,FBI
1) C00719 00238 MAP
1) C00727 00239 PAREN
1) C00730 00240 PARSAV PARL PARR PAR PARFND PARB PAREXT PARRCD PARNUL
1) C00752 00241 BACKGO BEEPCK BEEPST BEEPS1 BEEPME BEEPUU
1) C00755 00242 MSG CHKMSG MSG0B MSG0A MSG0 MSG1 MSG2 MSG5 MSG6 MSG7 MSGLUZ MSGBK MSGBK0
1) C00762 00243 MACDEF MACCAL MACSTP MACESC MACLIN MACTYP MACINT MACLTT
1) C00774 00244 BLOAT BURP UPDATE PROTEC
1) C00778 00245 MAIL SEND REMIND
1) C00780 00246 PDL,PATCH,PAT,ZVARS,LEGTAB,BUF,TCBUF,RBUF,FNDTBF,FNDBUF,DIR,SYSCMD,TYIPNT
1) C00782 ENDMK
1) C⊗;
*** E[CSP,SYS] *** PAGE 1 LINE 20
2) C00087 00018 EXTEND EXTEN1 EXTL0 EXTL EXTL1 EXTL2 EXTL3
2) C00089 00019 EXTLK0 EXTLK EXTAMX EXTAMB EXTNUL EXTNF EXTNF2 EXTAM2 EXTBUF EXTBFE MACABT
2) C00092 00020 READON ROSET READWR NORDWR CANCEL SNKOFF SNKON DPYALW DPYSKI NORDOW
2) C00094 00021 DDTGO R DRAW DRAWX LINCNT DDTRET
2) C00097 00022 GETOUT GETOU1 FINISH FINI1 FINI2 GORPG QUIT CLOSIT GODRD REOPEN CHKDEL
2) C00101 00023 NEWPAG NEWPG NEWPG0 NEWPG1 REREAD PGINIT PGERR
2) C00105 00024 UNWIND WIND WIND1 LT GT LTE GTE TOP BOT JMP JMPJMP UPARR DWNARR SEMICO COLON CHKMOV CHKMV2 MIDDLE FORMF VERTAB
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 1,1
2) C00114 00025 MARKS XMARK XMPAGE XXADD XXSUB XPADD XPSUB XLALL XXARRL XXPAGE XXLINE
2) C00126 00026 DELLIN, DELPOS
2) C00128 00027 DELLP DELL2 DELDSP DELPR DELPR1 DELPR2
2) C00134 00028 DELPM, DELPM1, DELPM2, DELPM3
2) C00136 00029 DELPAG, DELPG1, ADJPG, ADJPGL
2) C00138 00030 RCOMP, RCOMP1, RCOMP2, RCOMPX
2) C00139 00031 DELETE, DELET1, ADDPAG
2) C00142 00032 APPEND, APPLUZ
2) C00144 00033 APPEN2, PMTXT, PMPAG
2) C00146 00034 INSERT INSER0
2) C00148 00035 INSER1, INSER2, INSER3, INSER4, INSER5
2) C00150 00036 INSER8, DIRADD
2) C00152 00037 INSER6 INSER7 MARK NDIRCK
2) C00154 00038 CONTQ
2) C00156 00039 ATTACH, ATTCH1, ARGCHK, ARGCHN
2) C00158 00040 ATTDO, ATTDO0, ATTDO2, ATTDO1
2) C00160 00041 ATTREP, ATTEX
2) C00162 00042 ATTKIL, ATTKL, ATTSRC, GPAGL, GPAGL0, GPAGL1, GPAGL2, GPAGL3, ATTWRT
2) C00164 00043 ATTCOP, ATTCP1, ATTCP
2) C00165 00044 ATTCP0, ATTCPL, ATCMOR, ATTCP2, ATTCP3, GPAGL
2) C00167 00045 EDIT EDIT1 LINED LINL1 EDDSP EDARG EDARGX ZLINE
2) C00170 00046 EDFULL, EDTAB, EDNUL, EDCR, AGAIN, EDRP1, EDRPT
2) C00172 00047 EDGL EDGL1 EDGL2 EDGL2A EDGL2B EDGBSL IMLPTL
2) C00175 00048 EDGL3 EDGL4 REEDIT REEDT2 EDTMOR EDGDSP EDTAB2 PTOUT PTPNT EDLF
2) C00180 00049 EDCR2, EDACT, EDACT2, EDITIT, REPLIN, PUTBAK, UNINS, FNEDIT, EDLF2
2) C00186 00050 EDPUT, EDPLR
2) C00188 00051 EDPS, EDPL, EDPLUZ
2) C00190 00052 EDSNK
2) C00191 00053 CRDSP, REGCR, REGCR1, REGCR2
2) C00193 00054 CONTCR, CNTCR2, METACR, REPRST, REPRS2, METAC2
2) C00196 00055 LECR, DUBLCR, DUBCR2
2) C00198 00056 INSONA, INSONE, INSNUL, INSNLP
2) C00200 00057 LININS, LININ, LININ0, LININ1
2) C00202 00058 PPSET,ABCRLF,ABCRL0,ABCRL2,DPMAXL,LETAB,TTYTAB,DPHPOS,CMDCRL,PPRJMP,PPNO,DPHPOS,PPCALL,HPOSAD
2) C00207 00059 OCT3ST NUMSTD NUMSTR OCTSTR OCTASC NUMSIX
2) C00209 00060 SETWRT SETWR2 SETWRX BTAB SETWR3 SETWR4
2) C00212 00061 FRD FRD0 FRD1 NOEXT NOPRG NOPPN NOSWIT SWITL FRDMSG FLHACK
2) C00221 00062 SETDEV, GETNAM, GETNML, GETP, GETPL, DTYI1, DTYI, DTYI2
2) C00224 00063 DOSWIT DOSWI2 NTYI NTYIL NTYIM EDFIL EDFIL2 SRCFIL DSTFIL
2) C00227 00064 RSCAN, RSCAN0, RSCAN1, RSCAN2, RSCAN3, RSCAN4, RSCN4B, RSCN4C, RSCN4A, RSCN0A
2) C00232 00065 RSCAN5, RSCAN6, RSCAN7, RSCAN8, SYSCCK, CRECHK
2) C00234 00066 RSTYI RSTYI0 RSTYI1 UCASE TYI1 TYI2 TYI3 TYI4 TYI5 TYI6 TYICHK CTYI1 CTYI2 POPUP POPCJ CSTYI1
2) C00238 00067 TYI, TYIT, TYIU
2) C00239 00068 TMPRED, TMPRD1, TMPRD2, TMPRDX, RPGRD1, BKPRED
2) C00245 00069 TMPWRT, BKPWRT, TMPCOR
2) C00249 00070 FILERR, FILTYP, FILSTR, PPNTYP, FILETB
2) C00251 00071 SIXTYO, SIXTYL, SIXTY2, SIXTYN, SIXTNL, SIXTNN, PNTYO, PNTYOL
2) C00252 00072 UUOH, UUODSP, UFCE, UTYPCH, UTYPC2, UTYPDE, UTYPOC
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 1,1
2) C00253 00073 UTYPR, UTYPR1, USORRY, UFATAL,FATFIX,TELLX,TELLZ
2) C00257 00074 OPENI, OPNOI, IOPEN, SETI, SETRLD, OPNDEV, RELDEV, OPNLUZ
2) C00261 00075 RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2,RLDCHK
2) C00265 00076 EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
2) C00267 00077 OPENW, OPENO, SETO, FPAUSE, PAUSE, PAUS2, BYE
2) C00269 00078 CLOSO CLOSO2 WRBUF WRBF1 WRBF2 WRBF3 WRBF4 ENTR OBUF IBUF IBFE
2) C00271 00079 INTLUZ, INTDSP, PDLOV, PDLOV1, PDLOV2, PDLOV3, ISAV, TSINT, TSNINT
2) C00275 00080 FSINI, FSINI1, MORCOR
2) C00278 00081 FSGET, FSLUP0, FSLUP, FSGRAB, FSXIT
2) C00279 00082 FSNEWT, FSNEWP, FSNEW
2) C00280 00083 FSUSED, FSTSML, FSNEXT, FSHRET, FSLLUZ
2) C00282 00084 FSLSCN, FSLSCL, FSLFR, FSLSHF, FSLSLP, FSLMOV, FSLDON
2) C00284 00085 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
2) C00286 00086 FSBLT, POPTJ, FSBLT1
2) C00287 00087 FSBLT2, FSBLT3, FSHBLT, FSHBL2
2) C00288 00088 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
2) C00290 00089 FSGIVE, FSGIV1, FSGIV2
2) C00291 00090 CORCHK, CRUNCH, CMPACT
2) C00293 00091 ENDSET, ENDFIX
2) C00294 00092 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
2) C00296 00093 FUCHK, MOVIT, MOVTX
2) C00298 00094 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
2) C00300 00095 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
2) C00303 00096 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
2) C00305 00097 SAVIT
2) C00306 00098 CHECK, CHECK1, CHECK2
2) C00307 00099 CHKDIR, CHKDPL
2) C00309 00100
2) C00311 00101 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
2) C00312 00102 CHKPAG, CHKPGP
2) C00313 00103 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
2) C00315 00104 CHKPG3, CHKPG4, CHKPG5, CHKPG6
2) C00316 00105 CHKATT, CHKNAT
2) C00317 00106 CTAB 0-37
2) C00321 00107 CTAB 40-77
2) C00323 00108 CTAB 100-137
2) C00325 00109 CTAB 140-177
2) C00327 00110 GETDIR
2) C00329 00111 DIRCL2, DIRCL, DIRCL1, GETDR1
2) C00332 00112 DIRLIN DIRLUP DIRDON GDIRX DIRLF DIRLF1 DIRLF2 FINDIR XDRDSP XDIRLN XDIRIL XDCRLF XDIRFF DIRLN2
2) C00344 00113 LOSDIR BADDIR NODIR DIRNUM GDDSP LSKP1 DIRSHF DIREND UGHDIR
2) C00348 00114 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
2) C00351 00115 COPCOR, COPCHK, YESCHK, COPCMD
2) C00353 00116 FORMAT, FMTOK, FMTDSP
2) C00356 00117 NEWDIR, NEWDLP, SKPDSP, NEWDFF, OPUT, OSET, TMPDIR
2) C00357 00118 MAKDIR, MAKDR0, MAKDR1, MAKDOL, MDOL1
2) C00359 00119 MDIL1, MDIL1A, MDIL2, MDIL2A, MDCSRC, MDCSR1, MD1DSP
2) C00361 00120 MDIL1B, MAKDLF, MAKDFF, MDFF2, MDFF3, MDCEOL, MD2DSP
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 1,1
2) C00365 00121 MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX, MDLFCK
2) C00368 00122 CREATE, CREAT2, CTEXT
2) C00370 00123 RDSPA1,RDPAGE, RDPGOK, RDSPAG, RDPAG0
2) C00373 00124 RDPAG2 RDPAG1 RDLINE RDLLP RDLTAB TELLD1 TELLDZ PSEUDO
2) C00376 00125 RDLCR RDLLF RDLONG
2) C00378 00126 RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
2) C00380 00127 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
2) C00382 00128 DIRCHK, DIRNEW, DIRNW2, DIRNW1, TXTSHF
2) C00384 00129 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
2) C00386 00130 REMPTR FIXPTR FNDPT1 FNDPT2 LPTRTB DPTRTB ARRL TOPWIN LINES FIRPAG CURPAG PAGES
2) C00389 00131 DIRGET, DIRGL, DGEND, DRGSET
2) C00391 00132 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
2) C00393 00133 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
2) C00395 00134 INSDIR, DCLP1, DCLP2, DCNG, INSDL
2) C00398 00135 IDDSP0, IDDSP, IDTAB, INSD3, INSD4, SCOMS, SCOMS2
2) C00400 00136 IDNUL, IDDON, IDDONS
2) C00402 00137 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
2) C00403 00138 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
2) C00405 00139 DISPLAY DATA STORAGE
2) C00407 00140 MORE DISPLAY STORAGE
2) C00408 00141 HEADERS & TRAILERS -- TOPSTR HEDPAG HEDNAM ROFLG WFLAG TOPDSH HEDLIN BOTSTR DOTS
2) C00411 00142 DPYINI DPYCHK TTYTST MTLINE LOADMT
2) C00416 00143 DPYI2, NODPY, WIPE, IWIPE
2) C00419 00144 SETSCR NMVAR1 NMVARR MOVARR SETARR DSTRL TRLARR GOLINE
2) C00422 00145 SETWIN WINCHK WINCH2 GLDOWN GLUP POPWIN DWNWIN REWIN CENWIN
2) C00426 00146 DISP DISP0 DISP1 DISP2
2) C00429 00147 DISP3, DISP4, DISP5, DUMMY, EXCLR, EXSET,EXTST
2) C00431 00148 DISPAT, DISPAX
2) C00432 00149 DDISPX DDSPX2 DDDONE WIPIT WIPL WIPL2
2) C00434 00150 DDCOP, DDLUZ, LINREL, LINRLL, IDISP, IDISP2
2) C00435 00151 IIIARR, IIIAR2, IIIAR3
2) C00437 00152 LESET, LEADJ, LECLR
2) C00438 00153 DBLT, DBLT1, DBLT2, DBLT3, IDISPX, DISPX, PPBAJ1, POPBAJ, POPAJ
2) C00440 00154 PCOMPD, PCOMPI, PCOMPS, P2CMPD, P2CMPI
2) C00441 00155 DDISP, DDISP2
2) C00442 00156 DOARR, DOAR2, OFFARR, ONARR
2) C00443 00157 DDISPS, DDSPS2, DDSPS3, DDSPSX, DDSPS4
2) C00445 00158 DSPSAT, DSPSAX
2) C00446 00159 DBLTS, DBLTS2, DBLTSN, DBLTS3, DBLTS1, DBLTSA, DBLTA, DBLTA2
2) C00448 00160 TDISP TDISP0 TDISP1 TDISP2 TDISP3 TDISPE
2) C00450 00161 TDISP4 TDISP5 TYPE TYPEL TDISPM
2) C00451 00162 WRPAGE, WRPAG1, WRPAG2, WRBOOK
2) C00455 00163 WRPX0, WRPX, WRPX1, WRPX1A, WRPX1B, WRPX2
2) C00457 00164 WRPX3, WRPX4
2) C00460 00165 WRPOK, WRTIT, WRT0
2) C00462 00166 WRP1, WRLINE, WRLUP, WRLP2, WRRDO, WRRDO2, WRRDO3
2) C00464 00167 WRDSP, WRTAB, WRCHK, WRDONE, WRDON2
2) C00466 00168 WRPM, BTAB2
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 1,1
2) C00468 00169 FLSPAG, FLSPGL, FLSPG2, CLRWRT, CLRWR2, DSHED
2) C00469 00170 TV, RSYS, RUN, RUN1
2) C00472 00171 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
2) C00473 00172 SEARCH ROUTINES
2) C00475 00173 SREAD SREAD0 SREAD1 SREAD2 SREAD3 SREAD4 SRSTOR SRSTR2 QREAD QREADX QREADY QRACT QRACT2 QABORT
2) C00489 00174 SRACT SREAD5 SRALT SRALT2 SRALUZ SREDT ASTER BSLAS BSLXCT BSLXC2
2) C00499 00175 FINDIT FOUND FNDMOV FNDERR SUBSTP SUBERR FND2 FND2A SETJMP
2) C00504 00176 FIND
2) C00507 00177 DIRSRC, DFERR, SRCDF, SDFCR
2) C00509 00178 SSET, SSET2
2) C00510 00179 SCOMP SFLUSH NOSRCH SFLSH1 SFLSL
2) C00512 00180 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
2) C00514 00181 SPARSE
2) C00515 00182 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
2) C00517 00183 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
2) C00519 00184 SSCLP, SSCDSP
2) C00520 00185 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
2) C00522 00186 SGNOT
2) C00523 00187 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
2) C00525 00188 SBBRCH, SBBR2
2) C00526 00189 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
2) C00527 00190 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
2) C00529 00191 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
2) C00531 00192 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
2) C00533 00193 SBCCB6, SBCCB7, BITCNT, BITCN1
2) C00534 00194 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
2) C00536 00195 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
2) C00538 00196 SCCOM, SCCNOT
2) C00539 00197 SCCBIT
2) C00540 00198 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
2) C00542 00199 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
2) C00544 00200 SCGEN
2) C00545 00201 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
2) C00547 00202 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
2) C00549 00203 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
2) C00551 00204 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
2) C00553 00205 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
2) C00555 00206 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
2) C00557 00207 SRCPAG, SRCPG1
2) C00559 00208 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
2) C00560 00209 SRCPGF, SPFTAB, SPFCR, SPFLUZ
2) C00561 00210 SRCPGB, SPFTAB, SBKNL, SBKNUL
2) C00563 00211 SRCSET, SRCST1, SRCSTL, SRCST2
2) C00564 00212 SCALL, SRCHX, SRCHLX
2) C00566 00213 SCNBAK, SCNBKL
2) C00568 00214 SCONTF SRCFNP SRCFNB SFNB2 SFRETR SRCDPY SRCDP2 SRCFPP SRCDP3 NOSRCP SRCHED, SRCDD
2) C00573 00215 SRCFF, SFFNUL, SGTACS, SRTACS
2) C00574 00216 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 1,1
2) C00575 00217 JFILL, JUST, JUSTL1, JUSTL2, JDISP
2) C00585 00218 JUSTTB, JUSTSP, JUSTS2, JUSTSL, JUSTS3, JUSTSO, JSTSO2, JULMAR
2) C00588 00219 JUSMAR
2) C00593 00220 JUSTCR, JCRTB, JCR2, JFIX, JPTAB, JATAB
2) C00596 00221 NXTLIN, NXTLN2, JTAB, NXTBL
2) C00603 00222 JDUMP, JDMP2, JDLT, JDL1, JDISP2
2) C00607 00223 JDSP1, JDSP2, JDSP3, JDTAB, JFLUSH
2) C00609 00224 JDFIN JDFIN2 JSET JSET2
2) C00614 00225 BREAK JOIN
2) C00626 00226 INDENT,ALINE,CENTER,JLEFT
2) C00634 00227 LEFMAR,SHIFTY
2) C00638 00228 MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
2) C00640 00229 MACTYI
2) C00642 00230 ZDATA,ZSIX,ZBLT,ZEDFIL,ZLIST,EXIST,ZSAVE
2) C00656 00231 LAMBDA EPSIL NWFILE HOME QUERY HOMEG LAMBDG EPSIL5 LAMEPS
2) C00668 00232 ********* BEG OF ESSAY DEFS *********
2) C00687 00233 SUBSTR
2) C00699 00234 SPOOLC XSPOOL MAIOUT
2) C00705 00235 BEGIN SPSUB
2) C00712 00236 TELBUF,CHKUP,CHECKU,CHTEXT,ASCASC,CHOUT3,CHOUT6
2) C00719 00237 FILEID,TELLME,FBI
2) C00737 00238 MAP
2) C00745 00239 PAREN
2) C00748 00240 PARSAV PARL PARR PAR PARFND PARB PAREXT PARRCD PARNUL
2) C00770 00241 BACKGO BEEPCK BEEPST BEEPS1 BEEPME BEEPUU
2) C00773 00242 MSG CHKMSG MSG0B MSG0A MSG0 MSG1 MSG2 MSG5 MSG6 MSG7 MSGLUZ MSGBK MSGBK0
2) C00780 00243 MACDEF MACCAL MACSTP MACESC MACLIN MACTYP MACINT MACLTT
2) C00792 00244 BLOAT BURP UPDATE PROTEC
2) C00796 00245 MAIL SEND REMIND
2) C00798 00246 PDL,PATCH,PAT,ZVARS,LEGTAB,BUF,TCBUF,RBUF,FNDTBF,FNDBUF,DIR,SYSCMD,TYIPNT
2) C00800 ENDMK
2) C⊗;
******** E.76[CSP,SYS] **** PAGE 2 LINE 29
1) Saved bu not up
1) E.77
1) ⊗>
*** E[CSP,SYS] *** PAGE 2 LINE 29
2) This allows lines to have up to 2↑17 characters now.
2) Saved but not up.
2) E.77
2) Now 23. marks available, and marks remembered beyond line or page 512 correctly.
2) XJOIN command fixed, XBREAK command added.
2) Bug fix to ∂ command. Bug fix to MDIL1A to avoid clobbering P.
2) Bug fix to B command (glitch up) for attach mode case.
2) Numeric arg to Z command moves to that absolute line number first.
2) Bug fix to non-line-editor substitute to avoid screwing up line's char count.
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 2,2
2) Bug fix to rippling/file-coping for word count not multiple of 128.
2) New switch /#E opens file at end of page #, or at end of last page if # omitted.
2) Removed the continuation confirmation formerly required after 100 substitutions.
2) ⊗>
******** E.76[CSP,SYS] **** PAGE 4 LINE 38
1) LLDESC←←3 ;Text offset from linking pointers
1) ;The following bits are set in left half of word at TXTFLG offset from pointer word
*** E[CSP,SYS] *** PAGE 4 LINE 38
2) LLDESC←←3 ;Text offset from linking pointers
2) ;IF YOU CHANGE ANY OF THE ABOVE 4 VALUES, FIX THE BLOCKS CALLED DUMMY and DOTS TOO!!!
2) ;The following bits are set in left half of word at TXTFLG offset from pointer word
******** E.76[CSP,SYS] **** PAGE 15 LINE 12
1) MOVEI A,2000 ;WILL BE CHANGED FOR CHANGE IN CHAR CNTS
1) HRRM A,DUMMY+TXTCNT ;Char counts for dummy line
1) MOVNI A,5
1) HRRM A,DUMMY+TXTSER ;Serial value in dummy line
1) FOR X IN (DOTS,BOTDSH,BOTSTR,TOPDSH,TOPSTR) ;Set serial values
1) { HRRZM A,X+TXTSER
*** E[CSP,SYS] *** PAGE 15 LINE 12
2) MOVNI A,4
2) FOR X IN (BOTDSH,BOTSTR,TOPDSH,TOPSTR) ;Set serial values
2) { HRRZM A,X+TXTSER
******** E.76[CSP,SYS] **** PAGE 17 LINE 11
1) ,BACKGO,BEEPME,BURP,<CANCEL,DOEDIT>
1) ,<CENTER,SACMD>,<CLOSE,,CLOSIT>,<DDTGO,NOEDIT!DOEDIT>,<DEFINE,,MACDEF>
1) ,<DELETE,NOATT!NORDO>,<DIRED,NOATT,GODRD>,DPYALWAYS,DPYSKIP,<DRAW,NOEDIT!DOEDIT>
*** E[CSP,SYS] *** PAGE 17 LINE 11
2) ,BACKGO,BEEPME,<BREAK,SACMD>,BURP,<CANCEL,DOEDIT>
2) ,<CENTER,SACMD>,<CLOSE,,CLOSIT>,CRUNCH,<DDTGO,NOEDIT!DOEDIT>,<DEFINE,,MACDEF>
2) ,<DELETE,NOATT!NORDO>,<DIRED,NOATT,GODRD>,DPYALWAYS,DPYSKIP,<DRAW,NOEDIT!DOEDIT>
******** E.76[CSP,SYS] **** PAGE 25 LINE 3
1) NMARKS←←20 ;Max. no. of marks.
1) IMPURE
*** E[CSP,SYS] *** PAGE 25 LINE 3
2) NMARKS←←27 ;Max. no. of marks.
2) IMPURE
******** E.76[CSP,SYS] **** PAGE 45 LINE 8
1) PUSH P,[0]
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 45,45
*** E[CSP,SYS] *** PAGE 45 LINE 8
2) TRNE F,ARG!REL ;If any argument,
2) PUSHJ P,GOLINE ; then move to specified absolute line first
2) PUSH P,[0]
******** E.76[CSP,SYS] **** PAGE 63 LINE 1
1) ;DOSWIT, NTYI, NTYIL, NTYIM, EDFIL, EDFIL2, SRCFIL, DSTFIL
1) DOSWIT: PUSHJ P,NTYI
*** E[CSP,SYS] *** PAGE 63 LINE 1
2) ;DOSWIT DOSWI2 NTYI NTYIL NTYIM EDFIL EDFIL2 SRCFIL DSTFIL
2) DOSWIT: PUSHJ P,NTYI
******** E.76[CSP,SYS] **** PAGE 63 LINE 25
1) CAIE C,"F"
1) POPJ P,
*** E[CSP,SYS] *** PAGE 63 LINE 25
2) CAIE C,"E"
2) JRST DOSWI2
2) MOVEM A,SPAGE ;Arg is page number to start at end of.
2) MOVSI B,777 ;This oughta be big enough line and/or page number.
2) MOVEM B,SLINE
2) JUMPN A,DOSWI2
2) MOVEM B,SPAGE ;No arg means start up at end of last page of file.
2) DOSWI2: CAIE C,"F"
2) POPJ P,
******** E.76[CSP,SYS] **** PAGE 114 LINE 41
1) DPB A,[221200+COPNUM*100,,COPCMD]
1) INPUT DSKI,COPCMD
1) OUTPUT DSKO,COPCMD
1) ASH A,-12-COPNUM
1) AOJGE A,CPOPJ
1) MOVEI B,
1) DPB B,[310300+COPNUM*100,,COPCMD]
1) COPLUP: INPUT DSKI,COPCMD
*** E[CSP,SYS] *** PAGE 114 LINE 41
2) DPB A,[221200+COPNUM*100,,COPCM2]
2) ASH A,-12-COPNUM
2) AOJGE A,COPDA3 ;Jump if have 8K or less stuff to copy
2) COPLUP: INPUT DSKI,COPCMD
******** E.76[CSP,SYS] **** PAGE 114 LINE 51
1) POPJ P,
*** E[CSP,SYS] *** PAGE 114 LINE 48
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 114,114
2) COPDA3: INPUT DSKI,COPCM2 ;Get final partial buffer
2) MOVE A,COPCM2
2) TLZN A,1 ;Don't lose low-order 4 bits of odd dmp wd
2) JRST COPDA4 ;Even word count--no problem
2) MOVEM A,COPCM2 ;Output an extra word
2) HLRZ B,A
2) SUBI A,(B)
2) SETZM (A) ;Make sure extra word is zero
2) COPDA4: OUTPUT DSKO,COPCM2
2) POPJ P,
******** E.76[CSP,SYS] **** PAGE 115 LINE 11
1) ADDI T,2000⊗COPNUM
*** E[CSP,SYS] *** PAGE 115 LINE 5
2) HRRM T,COPCM2
2) ADDI T,2000⊗COPNUM
******** E.76[CSP,SYS] **** PAGE 115 LINE 45
1) COPCMD: -2000,,
1) 0
*** E[CSP,SYS] *** PAGE 115 LINE 46
2) COPCMD: -2000⊗COPNUM,,
2) 0
2) COPCM2: -2000⊗COPNUM,, ;For final (partial) buffer
2) 0
******** E.76[CSP,SYS] **** PAGE 119 LINE 17
1) CAIG C,13 ;A LIST OF "COMMENT" AND "SUBTTL" TO REMOVE THEM FROM DIR PAGE.
1) JRST [ POP P,C ↔ JRST MDIL1 ]
*** E[CSP,SYS] *** PAGE 119 LINE 17
2) CAIG C,10 ;A LIST OF "COMMENT" AND "SUBTTL" TO REMOVE THEM FROM DIR PAGE.
2) JRST [ POP P,C ↔ JRST MDIL1 ]
******** E.76[CSP,SYS] **** PAGE 125 LINE 1
1) ;RDLCR RDLLF
1) RDLCR0: ADD G,[70000,,]
*** E[CSP,SYS] *** PAGE 125 LINE 1
2) ;RDLCR RDLLF RDLONG
2) RDLCR0: ADD G,[70000,,]
******** E.76[CSP,SYS] **** PAGE 125 LINE 18
1) CAIL B,777776 ;Was CAIL B,1000-2
1) JRST RDLONG
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 125,125
*** E[CSP,SYS] *** PAGE 125 LINE 18
2) CAIL B,377776 ;Was CAIL B,1000-2
2) JRST RDLONG
******** E.76[CSP,SYS] **** PAGE 125 LINE 44
1) FATAL LINE MORE THAN 511 CHARS
1) ;RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
*** E[CSP,SYS] *** PAGE 125 LINE 44
2) FATAL LINE MORE THAN 131070 CHARS
2) ;RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
******** E.76[CSP,SYS] **** PAGE 141 LINE 67
1) DOTS: BLOCK LLDESC
1) ASCID / . . .
*** E[CSP,SYS] *** PAGE 141 LINE 67
2) DOTS: 0
2) 0
2) 0,,-5 ;Phony serial number and flags
2) ASCID / . . .
******** E.76[CSP,SYS] **** PAGE 145 LINE 16
1) ADD A,SCRSIZ
1) SUBI A,3
1) CAML A,LINES
*** E[CSP,SYS] *** PAGE 145 LINE 16
2) ADD A,SCRSIZ ;Find number of new BOTWIN line
2) SUBI A,3
2) MOVE B,ATTNUM ;Number of attach lines displayed decreases the
2) CAILE B,ATTMAX ; size of the window
2) MOVEI B,ATTMAX
2) SUB A,B
2) CAML A,LINES
******** E.76[CSP,SYS] **** PAGE 147 LINE 34
1) BLOCK LLDESC-1
1) ASCID /
*** E[CSP,SYS] *** PAGE 147 LINE 34
2) 2,,0 ;Not-so-phony character counts
2) 0,,-5 ;Phony flags and serial number
2) ASCID /
******** E.76[CSP,SYS] **** PAGE 173 LINE 193
1) JRST [MOVEI A,177777↔JRST QRA0]
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 173,173
1) CAIL TT,"0"
*** E[CSP,SYS] *** PAGE 173 LINE 193
2) JRST [MOVEI A,377776↔JRST QRA0]
2) CAIL TT,"0"
******** E.76[CSP,SYS] **** PAGE 173 LINE 222
1) CAILE A,777776 ;Was CAILE A,144
1) MOVEI A,777776 ;Was MOVEI A,144 ;Limit before requesting confirmation
1) MOVNS A
*** E[CSP,SYS] *** PAGE 173 LINE 222
2) CAILE A,377776 ;Was CAILE A,144
2) MOVEI A,377776 ;Was MOVEI A,144 ;Limit before requesting confirmation
2) MOVNS A
******** E.76[CSP,SYS] **** PAGE 174 LINE 151
1) CAILE A,144
1) MOVEI A,144
1) MOVNS A
*** E[CSP,SYS] *** PAGE 174 LINE 151
2) CAILE A,377776
2) MOVEI A,377776
2) MOVNS A
******** E.76[CSP,SYS] **** PAGE 219 LINE 1
1) JUSMAR
1) JUSMAR: PUSH P,A ;A contains a wanted argument, so save.
*** E[CSP,SYS] *** PAGE 219 LINE 1
2) ;JUSMAR
2) JUSMAR: PUSH P,A ;A contains a wanted argument, so save.
******** E.76[CSP,SYS] **** PAGE 220 LINE 74
1) PURE
*** E[CSP,SYS] *** PAGE 220 LINE 73
2) BREAKV: =80 ;Break value (always sticky)
2) PURE
******** E.76[CSP,SYS] **** PAGE 224 LINE 1
1) ;JDFIN
1) ;JDFIN finishes off BUF2 by adding a CR, a LF, a NULL and as many more NULLs
*** E[CSP,SYS] *** PAGE 224 LINE 1
2) ;JDFIN JDFIN2 JSET JSET2
2) ;JDFIN finishes off BUF2 by adding a CR, a LF, a NULL and as many more NULLs
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 224,224
******** E.76[CSP,SYS] **** PAGE 225 LINE 1
1) ;JDFIN2, JSET, JSET2
1) ;We enter at JDFIN2 from end of JBFIN or from 4 lines earlier if C is NULL.
*** E[CSP,SYS] *** PAGE 224 LINE 66
2) ;We enter at JDFIN2 from end of JBFIN or from 4 lines earlier if C is NULL.
******** E.76[CSP,SYS] **** PAGE 226 LINE 1
1) ;INDENT,ALINE,CENTER,JLEFT,JOIN
1) ;INDENT applies to a specified number of lines if an argument is given otherwise
1) ; to the entire ATTACH buffer or to a single line if not in ATTACH mode.
1) INDENT: TRO F,NEG ;Inhibit padding.
1) TLZ F,CEN!ALIN!JOINF
1) TLO F,INDEN
1) PUSHJ P,LEFMAR
1) TRNE F,ARG
1) JRST JUST2 ;The argument takes precedent.
1) TRNN F,ATTMOD ;Are we in ATTACH mode?
1) TRO F,ARG ;No, so set flag
1) JRST JUST2 ;Yes, so do entire ATTACH buffer.
1) ;LFARR and RTARR a left or a right INDENT by one space for a specified number
1) ; of lines with the default being one line or the entire ATTACH buffer.
1) LFARR: MOVNI T,1
1) SKIPA
1) RTARR: MOVEI T,1
1) MOVEM T,INMAR
1) MOVEM T,TMPMAR
1) TLZ F,CEN!ALIN!JOINF
1) TLO F,INDEN
1) ; PUSHJ P,LEFMAR
1) MOVEI T,EDCHRL ;Allow 126 display characters
1) MOVEM T,JSIZE
1) MOVEM T,JSIZE2
1) TRNE F,ARG
1) JRST JUST2 ;The argument takes precedent.
1) TRNN F,ATTMOD ;Are we in ATTACH mode?
1) TRO F,ARG ;No, so set flag
1) JRST JUST2 ;Yes, so do entire ATTACH buffer.
1) JLEFT: SORRY XJLEFT has not been implemented.
1) JRST POPJ1
1) ALIGN:
1) ALINE: TRO F,NEG ;Want it treated as JFILL in JDUMP
1) TLZ F,CEN!INDEN!JOINF ;But not like CENTER or INDENT
1) TLO F,ALIN
1) PUSHJ P,LEFMAR
1) JRST JUST2 ;Get started as for JUST.
1) CENTER: TLZ F,INDEN!ALIN!JOINF
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 226,225
1) TLO F,CEN ;Set CENTER flag
1) TRO NEG ;To inhibit filling.
1) TRNE F,ARG
1) JRST JUST1 ;The argument takes precedent.
1) TRNN F,ATTMOD ;Are we in ATTACH mode?
1) TRO F,ARG ;No, so set flag
1) JRST JUST1 ;Yes, so do entire ATTACH buffer.
1) JOIN: TRO F,NEG
1) TLZ F,INDEN!CEN!ALIN
1) TLO F,JOINF
1) TRNE F,ARG
1) JRST JOIN2
1) TRNE F,ATTMOD
1) JRST JOIN2
1) MOVEI A,2 ;Default to 2 lines
1) TRO F,ARG
1) JOIN2: PUSHJ P,LEFMAR ;Used for right margin in this case.
1) JRST JUST2
1) ;LEFMAR,SHIFTY
1) ;To accept left margin or indent specification.
1) LEFMAR: PUSH P,A ;Needed later.
1) MOVE T,EXTPNT ;To read margin changing instructions.
1) MOVEM T,TYIPNT ;Set pointer.
*** E[CSP,SYS] *** PAGE 225 LINE 1
2) ;BREAK JOIN
2) ;To break a specified number of lines into fragments ≤BREAKV in length
2) BREAK: TLZ F,JOINF ;Not to be a JOIN
2) MOVEM A,JCNT ;Number of lines, default value is 1
2) MOVE T,EXTPNT ;To read break length if specified
2) MOVEM T,TYIPNT ;Set pointer.
******** E.76[CSP,SYS] **** PAGE 227 LINE 11
1) SETZM INMAR ;Use as a flag for INDENT negative case
*** E[CSP,SYS] *** PAGE 225 LINE 69
2) BREAK0: PUSHJ P,TYI ;Get first character if any.
2) JRST BREAK4 ;We are to use default value
2) CAIN C," "
2) JRST BREAK0 ;Ignore an extra space in here.
2) BREAK1: CAIG C,71
2) CAIGE C,60
2) JRST BREAK3
2) IMULI A,12
2) ADDI A,-"0"(C)
2) PUSHJ P,TYI
2) JRST BREAK2
2) JRST BREAK1
2) BREAK2: JUMPG A,BRK2A
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 227,225
2) SORRY BREAK length of 0 not allowed.
2) JRST POPJ1
2) BRK2A: CAILE A,377770
2) MOVEI A,377770 ;This should be large enough!
2) MOVEM A,BREAKV ;Break value is always sticky
2) BREAK4: SKIPLE JCNT ;Non-positive arg means just tell default value
2) JRST JOIN0 ;BREAK something now
2) OUTSTR [ASCIZ /Default BREAK length is now /]
2) SETZM TYOPNT
2) TYPDEC BREAKV
2) OUTSTR [ASCIZ /. /]
2) JRST POPJ1 ;Abort on 0 or neg argument
2) BREAK3: SORRY Only digits permitted in following arg.
2) SETZM TYIPNT
2) JRST POPJ1
2) ;To join a specified number of lines into 1 continuous line of arbitrary max length
2) JOIN: TRNN F,ARG
2) MOVEI A,2
2) JUMPG A,JOIN0A
2) SORRY JOIN argument must be positive.
2) JRST POPJ1 ;Abort on 0 or neg argument
2) JOINPM: SORRY Cannot JOIN or BREAK a non-text line.
2) JRST POPJ1
2) JOIN0A: MOVEM A,JCNT
2) TLO F,JOINF ;Set JOIN flag
2) JOIN0: TRNE F,ATTMOD ;Don't care about arrow line if doing attach buffer
2) JRST JOIN0B
2) TLNE F,PMLIN!OFFEND
2) JRST JOINPM ;Current line is pagemark
2) JOIN0B: PUSHJ P,ENDSET ;To guarentee that new line will be at the end of FS
2) TLO F,NOCHK ;Don't CORE DOWN untill through
2) TRNE F,ATTMOD ;Are we in ATTACH mode?
2) SKIPA E,[JATAB] ; Yes so put [JATAB] in E.
2) MOVEI E,JPTAB ; No so put [JPTAB] in E.
2) HRRZ A,@JPT1(E) ;Put right of @ATTBUF or @ARRLIN in A
2) MOVEM A,JPTR ;Address of link word for first line of text
2) HLLZ Q,TXTFLG(A) ;Save flags
2) ;Link up start of new area in place of the old
2) HRRZ H,FSEND
2) ADDI H,1
2) TLNE F,JOINF
2) JRST JOINB ;Join bypass
2) JOINA: HRRZ T,TXTCNT(A) ;Get size of the line
2) CAMLE T,BREAKV ;Is line short enough already?
2) JRST JOINB ;No
2) SETZ Q, ;Yes, next line cannot be ARRL
2) HRRZ A,(A) ;Go to it
2) MOVEM A,JPTR ;Reset for later FSGIVE
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 227,225
2) CAME A,JETST(E) ;Are we at the end?
2) SKIPGE TXTFLG(A)
2) JRST JOINA1
2) SOSLE JCNT ;or has count run out?
2) JRST JOINA ;Maybe better luck next time
2) JOINA1: PUSHJ P,ENDFIX
2) TLZ F,NOCHK
2) OUTSTR [ASCIZ /No lines broken. /]
2) AOS (P)
2) POPJ P, ;Nothing to do
2) JOINB:
2) LEG HLLM Q,TXTFLG(H) ;Use old flags
2) TLNE Q,ARRBIT ;May need to reset ARRLIN
2) MOVEM H,ARRLIN
2) TLNE Q,WINBIT ;and also WINLIN
2) MOVEM H,WINLIN
2) SETZ Q,
2) MOVEM H,JLPT
2) HLLZ TT,(A) ;Use the left half of old link for
2) LEG MOVEM TT,(H) ;left half of the new link word, zero right
2) HLRZ T,TT
2) HRRM H,(T) ;Fix earlier forward link to the new line
2) AOS TT,TXTNUM
2) LEG HRRM TT,TXTSER(H) ;Assign H new serial number
2) ADD H,[440700,,LLDESC] ;Pointer for depositing text
2) CAIN T,PAGE
2) TRO F,UPDTXT ;This is the first line on the page
2) MOVN B,BREAKV ;Set for BREAK
2) TLNE F,JOINF
2) MOVEI B,400000 ;Set very large for JOIN
2) HRLZS B
2) SETZ G,
2) JOIN1A: SETZ I, ;To accumulate counts for null line detection
2) JOIN1: HRRZ T,TXTCNT(A) ;Is this a null line?
2) JUMPE T,JOIN4 ;Null line bypass
2) MOVE D,A
2) ADD D,[440700,,LLDESC] ;Pointer to read text
2) ADD I,T
2) JRST JOIN3
2) ;Transfer text, counting chars and fixing up TABs
2) JOIN2:
2) LEG IDPB C,H
2) JOIN3: ILDB C,D
2) CAIN C,11 ;Is it a TAB?
2) JRST JOIN5 ;Yes
2) CAIN C,15
2) JRST JOIN4
2) AOBJN B,JOIN2
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 227,225
2) JOIN2A:
2) LEG IDPB C,H ;Not a CR so save it
2) MOVE TT,D
2) ILDB C,TT ;Sneak a look at next char
2) CAIE C,15 ;Is it a CR?
2) JRST JOIN6A ;No, so there is something to break off
2) TLO B,400000 ;Nothing willl be left so make B neg
2) JOIN4: AOS Q
2) ;Test for end of text and fix up for next line
2) HRRZ A,(A) ;Look at next line
2) SKIPL TXTFLG(A)
2) CAMN A,JETST(E) ;Are we at BOTSTR or ATTBUF?
2) SETZM JCNT ;This is needed later
2) SOSLE JCNT ;Have we joined the specified number of lines?
2) TLNN F,JOINF ;Or is it a CR for a BREAK?
2) JRST JOIN6 ;Yes
2) SOS @JLPTR(E) ;1 line removed from LINES or ATTNUM
2) SOS @JCPTR(E) ;But correct CHARS or ATTSIZ now
2) SOS @JCPTR(E) ;for both CR and LF that will be deleted
2) JRST JOIN1
2) ;Routine for fixing TABs
2) JOIN5: ILDB C,D ;Yes
2) CAIN C,40
2) JRST .-2 ;Eat original spaces
2) ; CAIE C,11 ;Spaces should terminate in a TAB
2) ; OUTSTR [ASCIZ /TAB trouble, inspect text carefully for char omission. /]
2) ;Now put in correct number of spaces for deposited position in line
2) LEG IDPB C,H ;Deposit as initial TAB
2) HRROI TT,-10
2) IORI TT,(B)
2) HRLS TT ;So that B-left is properly updated
2) SUB B,TT
2) ADDI G,(TT)
2) MOVEI T,40
2) JRST .+11(TT)
2) REPEAT 10,<LEG IDPB T,H>
2) AOS G
2) JUMPL B,JOIN2 ;Jump if have room for more in this line
2) JRST JOIN2A
2) ;JOIN6 finishes off the line
2) JOIN6: JUMPG I,JOIN6A ;Not a null line
2) MOVEI C,40
2) LEG IDPB C,H ;At least 1 char is required
2) MOVSI B,-1 ;Mark input line as used up, output line as empty
2) JOIN6A: MOVEI C,15
2) LEG IDPB C,H ;The CR
2) MOVEI C,12
2) LEG IDPB C,H ;And a LF
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 227,225
2) TDZA C,C
2) LEG IDPB C,H ;And a null
2) TLNE H,760000
2) JRST .-2
2) MOVE T,JLPT
2) ADDI G,2(B)
2) HRLZS G
2) ADDI G,(B)
2) LEG MOVEM G,TXTCNT(T) ;Record char counts
2) ;Text must be in ASCID
2) ADDI T,LLDESC ;Get address of first text word
2) MOVEI TT,1
2) IORM TT,(T) ;Convert text words to ASCID
2) CAIGE T,(H)
2) AOJA T,.-2
2) MOVEI TT,2(H)
2) MOVSI T,TXTCOD
2) FSFIX TT,T
2) SKIPG JCNT ;Have we exhausted the input?
2) JRST JOIN7 ;Yes, (will always be so if here on a JOIN)
2) BREAK6: MOVE T,JLPT ;We will need more space
2) HRRZ H,FSEND
2) ADDI H,1 ;Get its start
2) HRRM H,(T) ;and link it to last piece
2) LEG HRLM T,(H)
2) MOVEM H,JLPT
2) MOVE T,B ;Save for test
2) MOVN B,BREAKV ;Reset counters
2) TRNN F,ARG!REL ;If no argument given to BREAK,
2) MOVEI B,400000 ; then make sure we don't break the line again
2) HRLZS B
2) SETZ G,
2) LEG HRLM G,TXTFLG(H) ;Broken-off piece or next line cannot be ARRL
2) AOS TT,TXTNUM
2) LEG HRRM TT,TXTSER(H)
2) ADD H,[440700,,LLDESC]
2) JUMPL T,JOIN1A ;There was at a CR in original text so reset
2) AOS @JLPTR(E) ;An extra line will be added
2) AOS @JCPTR(E) ;And 2 extra chars
2) AOS @JCPTR(E)
2) JRST JOIN3
2) ;And complete the links to the following text
2) JOIN7: MOVE T,JLPT ;Now fix new right link
2) HRRM A,(T) ;A references next line
2) HRLM T,(A) ;And backward link to the new line
2) PUSHJ P,ENDFIX
2) ;It should be safe to FSGIVE now, count is in Q
2) MOVE A,JPTR ;Get back address of first old line
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 227,225
2) JUMPE Q,.+4
2) PUSHJ P,FSGIVE ;And give up its space
2) HRRZ A,(A)
2) SOJG Q,.-2 ;Do this for all the old lines
2) TRO F,WRITE!DSPALL
2) TLZ F,NOCHK
2) TLNN F,JOINF ;No message on a break
2) JRST JEXIT(E)
2) MOVE T,JLPT ;Restore T value
2) HRRZ B,TXTCNT(T) ;and check final length of joined line
2) SETZM TYOPNT
2) OUTSTR [ASCIZ /Line now has /]
2) TYPDEC B
2) OUTSTR [ASCIZ / chars. /]
2) AOS (P)
2) JRST JEXIT(E)
2) ;INDENT,ALINE,CENTER,JLEFT
2) ;INDENT applies to a specified number of lines if an argument is given otherwise
2) ; to the entire ATTACH buffer or to a single line if not in ATTACH mode.
2) INDENT: TRO F,NEG ;Inhibit padding.
2) TLZ F,CEN!ALIN!JOINF
2) TLO F,INDEN
2) PUSHJ P,LEFMAR
2) TRNE F,ARG
2) JRST JUST2 ;The argument takes precedent.
2) TRNN F,ATTMOD ;Are we in ATTACH mode?
2) TRO F,ARG ;No, so set flag
2) JRST JUST2 ;Yes, so do entire ATTACH buffer.
2) ;LFARR and RTARR a left or a right INDENT by one space for a specified number
2) ; of lines with the default being one line or the entire ATTACH buffer.
2) LFARR: MOVNI T,1
2) SKIPA
2) RTARR: MOVEI T,1
2) MOVEM T,INMAR
2) MOVEM T,TMPMAR
2) TLZ F,CEN!ALIN!JOINF
2) TLO F,INDEN
2) ; PUSHJ P,LEFMAR
2) MOVEI T,EDCHRL ;Allow 126 display characters
2) MOVEM T,JSIZE
2) MOVEM T,JSIZE2
2) TRNE F,ARG
2) JRST JUST2 ;The argument takes precedent.
2) TRNN F,ATTMOD ;Are we in ATTACH mode?
2) TRO F,ARG ;No, so set flag
2) JRST JUST2 ;Yes, so do entire ATTACH buffer.
2) JLEFT: SORRY XJLEFT has not been implemented.
2) JRST POPJ1
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 227,225
2) ALIGN:
2) ALINE: TRO F,NEG ;Want it treated as JFILL in JDUMP
2) TLZ F,CEN!INDEN!JOINF ;But not like CENTER or INDENT
2) TLO F,ALIN
2) PUSHJ P,LEFMAR
2) JRST JUST2 ;Get started as for JUST.
2) CENTER: TLZ F,INDEN!ALIN!JOINF
2) TLO F,CEN ;Set CENTER flag
2) TRO NEG ;To inhibit filling.
2) TRNE F,ARG
2) JRST JUST1 ;The argument takes precedent.
2) TRNN F,ATTMOD ;Are we in ATTACH mode?
2) TRO F,ARG ;No, so set flag
2) JRST JUST1 ;Yes, so do entire ATTACH buffer.
2) ;LEFMAR,SHIFTY
2) ;To accept left margin or indent specification.
2) LEFMAR: PUSH P,A ;Needed later.
2) MOVE T,EXTPNT ;To read margin changing instructions.
2) MOVEM T,TYIPNT ;Set pointer.
2) HRLI C,(<MOVEI C,>)
2) MOVEM C,TYIINS
2) SETZB A,C
2) SETZM INMAR ;Use as a flag for INDENT negative case
******** E.76[CSP,SYS] **** PAGE 230 LINE 141
1) ZENT←←21 ;17 entries per file.
1) ZSIZE←←ZNUM*ZENT
*** E[CSP,SYS] *** PAGE 230 LINE 44
2) ;ZENT←←21 ;17 entries per file.
2) ZENT←←40 ;32 entries per file.
2) ZSIZE←←ZNUM*ZENT
******** E.76[CSP,SYS] **** PAGE 230 LINE 141
1) ;Now pack the marks two to the word and store them with rest of the data
1) MOVEI B,10 ;Storing 16 marks into 8 words
1) MOVE C,[POINT 18,MARKS,-1] ;From table MARKS (page,,line)
1) MOVEI G,4 ;4 bytes per word into TT
1) MOVE E,[POINT 9,TT,-1]
1) ILDB H,C
1) IDPB H,E
1) SOJG G,.-2
1) MOVEM TT,ZDATA+6(T)
1) ADDI T,1
1) SOJG B,.-7
1) ;Packing complete
*** E[CSP,SYS] *** PAGE 230 LINE 82
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 230,230
2) HRLI TT,MARKS
2) HRRI TT,ZDATA+6(T)
2) BLT TT,ZDATA+34(T) ;Now saving 23. marks in full words
2) ;Now pack the marks two to the word and store them with rest of the data
2) ; MOVEI B,10 ;Storing 16 marks into 8 words
2) ; MOVE C,[POINT 18,MARKS,-1] ;From table MARKS (page,,line)
2) ; MOVEI G,4 ;4 bytes per word into TT
2) ; MOVE E,[POINT 9,TT,-1]
2) ; ILDB H,C
2) ; IDPB H,E
2) ; SOJG G,.-2
2) ; MOVEM TT,ZDATA+6(T)
2) ; ADDI T,1
2) ; SOJG B,.-7
2) ;Packing complete
******** E.76[CSP,SYS] **** PAGE 230 LINE 141
1) ;Now unpack the appropriate marks and restore them to the mark table
1) ZUNPAK: MOVEI B,10
1) MOVE C,[POINT 18,MARKS,-1] ;To table MARKS (page,,line)
1) MOVE TT,ZDATA+6(T)
1) MOVEI G,4 ;4 bytes per word from TT
1) MOVE E,[POINT 9,TT,-1]
1) ILDB H,E
1) CAIL H,777 ;May be void
1) MOVEI H,777777 ;It is. Note: marks on page or line 511 go away
1) IDPB H,C
1) SOJG G,.-4
1) ADDI T,1
1) SOJG B,.-11
1) POPJ P,
*** E[CSP,SYS] *** PAGE 230 LINE 116
2) ZUNPAK:
2) HRLI TT,ZDATA+6(T)
2) HRRI TT,MARKS
2) BLT TT,MARKS+26 ;Unpack 23. marks
2) ;Now unpack the appropriate marks and restore them to the mark table
2) ; MOVEI B,10
2) ; MOVE C,[POINT 18,MARKS,-1] ;To table MARKS (page,,line)
2) ; MOVE TT,ZDATA+6(T)
2) ; MOVEI G,4 ;4 bytes per word from TT
2) ; MOVE E,[POINT 9,TT,-1]
2) ; ILDB H,E
2) ; CAIL H,777 ;May be void
2) ; MOVEI H,777777 ;It is. Note: marks on page or line 511 go away
2) ; IDPB H,C
2) ; SOJG G,.-4
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 230,230
2) ; ADDI T,1
2) ; SOJG B,.-11
2) POPJ P,
******** E.76[CSP,SYS] **** PAGE 233 LINE 118
1) ADD G,B
1) MOVEI B,-BUF+1+LLDESC(D) ;Number of words.
*** E[CSP,SYS] *** PAGE 233 LINE 118
2) IORI G,(B)
2) MOVEI B,-BUF+1+LLDESC(D) ;Number of words.
******** E.76[CSP,SYS] **** PAGE 233 LINE 172
1) CAIGE TT,144
1) JRST QFAST9
1) OUTSTR [ASCIZ /
1) 100 substitutions have been made. Do you want to STOP? (type Y or N)
1) /]
1) PUSHJ P,YESCHK
1) JRST QFAST9
1) MOVE TT,[-144,,1]
1) ADDM TT,QCHR
1) ADDM TT,SUBFLG(E)
1) JRST QFAST7
1) QFAST9: PUSHJ P,ABCRL0 ;Type CRLF, preserving ACs
*** E[CSP,SYS] *** PAGE 233 LINE 172
2) ; CAIGE TT,144
2) JRST QFAST9
2) ; OUTSTR [ASCIZ /
2) ;100 substitutions have been made. Do you want to STOP? (type Y or N)
2) ; /]
2) ; PUSHJ P,YESCHK
2) ; JRST QFAST9
2) ; MOVE TT,[-144,,1]
2) ; ADDM TT,QCHR
2) ; ADDM TT,SUBFLG(E)
2) ; JRST QFAST7
2) QFAST9: PUSHJ P,ABCRL0 ;Type CRLF, preserving ACs
******** E.76[CSP,SYS] **** PAGE 242 LINE 99
1) PUSHJ P,VERTB2 ;Do a -FF to get to end of previous page
*** E[CSP,SYS] *** PAGE 242 LINE 99
2) PUSHJ P,WINCHK ;Fix up the window pointers so -FF will work
2) PUSHJ P,VERTB2 ;Do a -FF to get to end of previous page
1) E.76[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 03-22-76 08:29 PAGES 242,242